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B=5500 ESSENCE OF MCF $ NOV21968 PeboGe 00020000 
COMMENT? * TITLE? B5500/85700 NARK XIV SYSTEM RELEASE “ 00020110 @ 
* - 1D: B KER A Os SYMBO mexene Be OOO COT tg eae 
* THIS MATERIAL IS PROPRIETARY TO BURROUGHS CORPORATION * o00zZ0112 | 
* AND IS Nor TO ae Be CR GnICE Ds USED» OR DISCLOSED * 00020113 e 
* A : 7 ROGRAM j OR ON * C0020 ; cing! 
* WRITTEN AUTHORIZATION “UF THE PATENT “DIVISION OF * 00u20115 i 
* BURROUGHS CORPORATION» OETROITs, MICHIGAN 48232 * 00020110 bed 
* ‘ @ 20 {> 
* COPYRIGHT (C) 1971» 1972 BURROUGHS CORPORATION * 00020118 . | 
*  AA320206 AA386657 *3 00020119 “@ 
REGIN asa roses acest os a ea, ates PA OOO oe ee nnesteies se 
DEFINE MSMEMORY #, PSPULISH 43 O00U40000 
ARRAY DATA (#J3 00050000 & 
DEF IN p RES = M 40] #3 O0UE0000 eed weet Moma See a " 
DEFINE BASE = MCO) #3. 00070000 
DEFINE DIRECTOPs MC1] #3 00080000 @ 
‘DEF INE , = M s 0090000 ea he ee . 
DEFINE INDX = M(C@42] #3 00100000 Ne 
DEFINE MODS = M(@46] 4} 00110000 @ 
a A NO 5 = M(« zy —_—.__001 20000. ide eles a2ied bs oe ance, ott 
DEFINE R = M(@44) #3 00130000 - . 
DERINE SYSTEM = M(@45) #; 00140000 :@ 
NIEGER PROCVA + 00150000, ee 
INTEGER  FINOMEMS 00160000 ~ 
LABEL TIMER» START» TUPOCUDES 00470000 1@ 
AVE REAL PROCEDURE FCMs fo POOP ROOO 0 on ee te ey, & oh 
BEGIN GO TO TIMER ENDS 00190000 a 
SAVE REAL PROCEDURE 10 (DESC)3 &STHIS FIRES OFF THE IO 00200000 w@ 
Sa ee rps epcte sonata a et eee ne a eo OO NOOO 0 tet te et en Ne Se ince tie Gee 2 cae 
REAL DESC} 00220000 2k 
BEGIN 00230000 “@ 
0 B IN ca a Nee ee HO 000 a a Se, Od ee 
PCCDESCI]»1I0)$ 00250000 
R « EOMS 00260000 @ 
OD + R.l25%8 _ 0070000 me 
ENO UNTIL ¢PROCVAL AND 5)=03 00280000 “ 
ENDS 00240000 @ 
SAVE PROCEDURE DISKREED SC)3 00300000 Seseioal tint eS Sele, oA ey 
VALUE DESC3 00310000 a 
REAL DESCS . 00320000 4@ 
BEG REAMCA ¢« BASE + ADDRESSsBire0 ; 00330000 Sef attest Lo . seg RRS 
BEGIN SI#=LCC asDIlt=2b3088"8 DECS ENDS 00340000 ee 
IF MEDESCJeC221] THEN DESC.L35]e125% 60345000 @ 
D Re ore) Ni R= OO35Q0000 7 Soe 
jena ES END3 aes - 00360000 ie 
TOPOCODE rezot Go TO STARTS | a 2 FIRST cove 7 00380000 | @ 
“TMER. a : A 7 NOT: NOME M i EA N0a9g0000 Dae yee le, 
GG TO STARTS % SeT UP FOR INVD ADDR 00400000 ney 
: : GO TO TIMERS % SPU 00410000 ai 
625 0 x LPA OO420000 ea Pe ee eee waee ES 
1026! Go TO TIMERS % LPB 00430000 49) 
18274 PCOL4/LODeR TNE 4 1-0 1 “COMPLETE 00440000 : @ 
BT ee ee 1830 neRtn oS PaO 2 COMP. Oo450000 Be hse on ayia Mea dele 
i 131% PC@16»LD0-RTN)3 % Iu 3 COMPLETE 00460000 82 
@} :@32t P(@L7+LODsRKIN)3 % 1-0 4 COMPLETE 00470000 1@ 
2@34t GO TO TIMER: k_DA’ LM : ee ee vocal 
pa eee $@36t GO TO TIMERS | -% OF #1 USED ON FREE ADDRESS00490000 
Or ee Meare oo to TIMERE. oo aOR 9B. RETURN 00500000 |@ 
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PC@LQ0»STS)5 % SET STACK TO OCT 100 
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IF wads GTR @70000 THEN 
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PCTOC@1400001000U0000 & DISK Cagi 33$15])*DEL)3 
INDX © INDX + CSYSTEM x 5)3 


MCDISK] %% 03 %SET ADDRESS To ZERO | 
DO Re lOcDISK INK ei soudogea1dgnge ) UNTIL Regs 
DLR AP $s A Ts 
NOSYS t= DaTA (1js 
BASE : DATA CINDAIS 
BEGIN weeael ts 6330565310191 ¢000) SINVALID 
wred? 3 ts @2124245125626260; #ADDRESS 
Y : ASL S60 M4 ZEOR MCP 
SCIUCEPAOUOOOOOUODOGE IF DEL SF 
DQ UNTIL FALSES 
ND: 
% BEGIN LOADING mCP 
ADORESS « 733 
DISKR BC OL4 000047704 35: OR mane 
ADDRESS ¢« 103 
DISKREEN €@44000004770U473 OR MOUS); 
ADDRESS + Q3 
DISKREED €#140000041200017 OR ROEP et 
% END mCP LOAD 
MOOS ts MOOS + @403 cate . 
MC@15) © €04410232010044415 COLE TO FULL MCP DOWN 
MC®16) ¢ @02530104535277053 %THIS MOVES 4042 WDS 
e ¢  @37050U51010U24i115 
BASE ¢ BASE = 23 | 
NEO} saBASERSYSTEM( 1614612 )€(NOSYS)(10146 121) 
Q 
GO TO PCCME@15)))3 
WHILE TRUE DUS 
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